home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / bgscroll / scrollbg.bas < prev   
BASIC Source File  |  1999-09-22  |  794b  |  28 lines
  1. Attribute VB_Name = "ScrollBG"
  2. Enum DirX
  3. downx
  4. upx
  5. rightx
  6. leftx
  7. End Enum
  8. 'Scrolls Pictures using only 1 Pic Box (Timers work great with this)
  9. Public Sub BGScroll(pic As Object, Optional Direction As DirX)
  10. Static A As Integer, B As Integer
  11. pic.AutoRedraw = True
  12. pic.Picture = pic.Image
  13. Select Case Direction
  14. Case downx
  15.   pic.PaintPicture pic.Picture, A, B + 1
  16.   pic.PaintPicture pic.Picture, 0, 0, , , , pic.ScaleHeight - 1
  17. Case upx
  18.   pic.PaintPicture pic.Picture, A, B - 1
  19.   pic.PaintPicture pic.Picture, 0, pic.ScaleHeight - 1
  20. Case rightx
  21.   pic.PaintPicture pic.Picture, A + 1, B
  22.   pic.PaintPicture pic.Picture, 0, 0, , , pic.ScaleWidth - 1
  23. Case leftx
  24.   pic.PaintPicture pic.Picture, A - 1, B
  25.   pic.PaintPicture pic.Picture, pic.ScaleWidth - 1, 0
  26. End Select
  27. End Sub
  28.